home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…ry 5: (Reseller Edition) / Apple Reference & Presentations Library 5.0 (Reseller Edition).iso / 6-Developer Demos / Developer Demos-Gen. / Mac Yellow Pages 1.0 / background_29303.txt < prev    next >
Encoding:
Text File  |  1990-08-17  |  3.8 KB  |  183 lines
  1. -- background: 29303 from stack: in.0
  2. -- bmap block id: 29474
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Registration
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global viewTime
  9.   put the seconds into viewTime
  10. end openCard
  11.  
  12. on returnKey
  13.   global stringToFind
  14.   if the visible of msg is true or stringToFind is empty then
  15.     pass returnKey
  16.   else
  17.     if the foundText is not empty then
  18.       find string stringToFind
  19.       if the result is not "not found" then
  20.         play stop
  21.         play harpsichord a7t ae
  22.       end if
  23.     end if
  24.   end if
  25. end returnKey
  26.  
  27. on find
  28.   if the visible of msg is true then
  29.     show msg
  30.   end if
  31.   pass find
  32. end find
  33.  
  34. on arrowKey
  35.   -- do nothing
  36. end arrowKey
  37.  
  38.  
  39.  
  40. -- part 13 (field)
  41. -- low flags: 01
  42. -- high flags: 0000
  43. -- rect: left=2 top=3 right=21 bottom=451
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 0
  47. -- font id: 20
  48. -- text size: 12
  49. -- style flags: 2304
  50. -- line height: 16
  51. -- part name: Header
  52.  
  53.  
  54. -- part 22 (field)
  55. -- low flags: 01
  56. -- high flags: 0000
  57. -- rect: left=343 top=3 right=20 bottom=510
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 65535
  61. -- font id: 20
  62. -- text size: 12
  63. -- style flags: 2304
  64. -- line height: 16
  65. -- part name: Page Number
  66.  
  67.  
  68. -- part 43 (button)
  69. -- low flags: 00
  70. -- high flags: 2000
  71. -- rect: left=94 top=305 right=337 bottom=130
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: Home
  80. ----- HyperTalk script -----
  81. on mouseDown
  82.   play stop
  83.   play harpsichord a7e
  84. end mouseDown
  85.  
  86. on mouseUp
  87.   doMenu Quit HyperCard
  88. end mouseUp
  89.  
  90.  
  91. -- part 49 (button)
  92. -- low flags: 00
  93. -- high flags: 2000
  94. -- rect: left=163 top=99 right=118 bottom=229
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: Cancel
  103. ----- HyperTalk script -----
  104. on mouseUp
  105.   go to card "Registration"
  106. end mouseUp
  107.  
  108.  
  109.  
  110. -- part 50 (button)
  111. -- low flags: 00
  112. -- high flags: 2000
  113. -- rect: left=463 top=305 right=337 bottom=499
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 1
  117. -- font id: 0
  118. -- text size: 12
  119. -- style flags: 0
  120. -- line height: 16
  121. -- part name: Contents
  122. ----- HyperTalk script -----
  123. on mouseDown
  124.   play stop
  125.   play harpsichord a7e
  126. end mouseDown
  127.  
  128. on mouseUp
  129.   put true into allClear
  130.   repeat with n = 1 to 14
  131.     if the hilite of card button n is true then
  132.       put false into allClear
  133.       exit repeat
  134.     end if
  135.   end repeat
  136.  
  137.   if card field "Address" is not empty then
  138.     put false into allClear
  139.   end if
  140.  
  141.   if card field "Other" is not empty then
  142.     put false into allClear
  143.   end if
  144.  
  145.   if allClear then
  146.     visual effect dissolve
  147.     go to card "Registration Dissolve"
  148.     visual effect iris close to black
  149.     visual effect iris open
  150.     go to card "Main Menu"
  151.   else
  152.     global alreadyPrinted
  153.     if not alreadyPrinted then
  154.       answer "You haven't printed this page yet.  Print?" with "No" or "OK"
  155.       if it is "OK" then
  156.         global alreadyPrinted
  157.         put true into alreadyPrinted
  158.         set lockScreen to true
  159.         open printing
  160.         print 2 cards
  161.         close printing
  162.         set lockScreen to false
  163.       end if
  164.     end if
  165.  
  166.     answer "Clear page before returning to Main Menu?" with "Cancel" or "No" or "OK"
  167.     if it is not "Cancel" then
  168.       if it is "OK" then
  169.         put empty into card field "Address"
  170.         put empty into card field "Other"
  171.         repeat with n = 1 to 14
  172.           set the hilite of card button n to false
  173.         end repeat
  174.       end if
  175.       visual effect dissolve
  176.       go to card "Registration Dissolve"
  177.       visual effect iris close to black
  178.       visual effect iris open
  179.       go to card "Main Menu"
  180.     end if
  181.   end if
  182. end mouseUp
  183.